home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_1 / aiff199b.lha / AGAiff / REXX / GridSave.agaiff < prev    next >
Text File  |  1995-04-23  |  2KB  |  93 lines
  1. /* GridSave.agaiff */
  2.  
  3. address agaiff_rexx
  4. options results
  5.  
  6. call close 'STDOUT'
  7. call close 'STDIN'
  8. call open 'STDIN','CON:20/20/500/120/AGAiff - GridSaving..'
  9. call pragma '*','STDIN'
  10. call open 'STDOUT','*'
  11.  
  12. status 0
  13. if result == "" then do
  14.     say "No picture loaded.."
  15.     address command wait 1
  16.     exit
  17. end
  18.  
  19. say "Grid Block X Size:"
  20. pull gridxs
  21. say "Grid Block Y Size:"
  22. pull gridys
  23. say "Number of Blocks X:"
  24. pull gridxn
  25. say "Number of Blocks Y:"
  26. pull gridyn
  27. say "[1] top-down or [2] left-right:"
  28. pull order
  29. say "Do you want to have all blocks joined in one file ? [y/n]"
  30. pull join
  31. if join = "Y" then join=1; else join=0
  32.  
  33. requestfile "GridSave - FileName.."
  34. filename = result
  35. if filename == "" then exit
  36.  
  37. noshow
  38. abc=0
  39.  
  40. if order=1 then do
  41. if join=0 then do
  42.     do rangex=0 for gridxn BY gridxs
  43.        do rangey=0 for gridyn BY gridys
  44.           range rangex rangey rangex+gridxs-1 rangey+gridys-1
  45.           save filename||"."||abc
  46.           abc = abc+1
  47.        end
  48.     end
  49. end; else do
  50.     do rangex=0 for gridxn BY gridxs
  51.        do rangey=0 for gridyn BY gridys
  52.           range rangex rangey rangex+gridxs-1 rangey+gridys-1
  53.           if abc = 0 then save filename
  54.         else do
  55.                   save filename||'.'
  56.             address command 'join "'||filename||'" "'||filename||'." AS "'||filename||'.."'
  57.             address command 'copy "'||filename||'.." "'||filename||'"'
  58.         end
  59.           abc = abc+1
  60.        end
  61.     end
  62.     address command 'delete "'||filename||'."'
  63.     address command 'delete "'||filename||'.."'
  64. end
  65. end; else do
  66. if join=0 then do
  67.     do rangey=0 for gridyn BY gridys
  68.        do rangex=0 for gridxn BY gridxs
  69.           range rangex rangey rangex+gridxs-1 rangey+gridys-1
  70.           save filename||"."||abc
  71.           abc = abc+1
  72.        end
  73.     end
  74. end; else do
  75.     do rangey=0 for gridyn BY gridys
  76.        do rangex=0 for gridxn BY gridxs
  77.           range rangex rangey rangex+gridxs-1 rangey+gridys-1
  78.           if abc = 0 then save filename
  79.         else do
  80.                   save filename||'.'
  81.             address command 'join "'||filename||'" "'||filename||'." AS "'||filename||'.."'
  82.             address command 'copy "'||filename||'.." "'||filename||'"'
  83.         end
  84.           abc = abc+1
  85.        end
  86.     end
  87.     address command 'delete "'||filename||'."'
  88.     address command 'delete "'||filename||'.."'
  89. end
  90. end
  91.  
  92. reshow
  93.